home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / maintmon.scp < prev    next >
Text File  |  1994-11-05  |  8KB  |  316 lines
  1. // 7.13 GUARD ROOM/MAINTENANCE LOG
  2. { GR_MAINTENANCELOG
  3.     P        ~ÇÇ       
  4.     P        ~Çü       
  5.     P        ~Çé       
  6.     P        ~Çâ     
  7.     // CELL REPAIR INDEXES
  8.  
  9.     I ( @Çú              () ) THEN é     
  10.  
  11.             ( "mant" )
  12.  
  13.     J    #Çé       
  14.  
  15.     // *******   LOOP   *********
  16.     :LOOP
  17.            
  18.     â      
  19.     J    #Çü 
  20.  
  21.  
  22.     // *******   MAIN   ********
  23.     :MAINSCREEN
  24.  
  25.     m          
  26.  
  27.     // BACKGROUND
  28.     N      (^à╝           )
  29.     {
  30.         U    $é┐         
  31.                        ( "BK2A", 1 )
  32.             X ÇÇ 
  33.         U    $âÇ           
  34.                        ( "BK3A", 1 )
  35.             X ÇÇ 
  36.     }
  37.  
  38.     // RINGS SYMBOL
  39.                ( "ARNA", 1 )
  40.  
  41.                  ( "MNTL", "MAINTENANCE
  42.                            /FMAINTENANCE
  43.                            /GWARTUNG" );
  44.                    ( "AXTB", "EXIT/FSORTIE/GZURÜCK", $Ç¡            );
  45.     // NUCLEAR SYMBOL BUTTON
  46.                    ( "MRGB", "EMERGENCY/FALERTE/GNOTFALL"); 
  47.                    ( "AGNB", "DATA LOG/FFICHIER DONNEES/GDATENPROTOKOLL" );             //@@@ PLEASE TRANSLATE
  48.     J    #Çü 
  49.  
  50.     :AGNB_BUTTON
  51.     @Çå   (`üÉ     , 100, -2048)
  52.     J    #Çå          
  53.  
  54.     :MRGB_BUTTON
  55.     @Çå   (`üÉ     , 100, -2048)
  56.     J    #Çû            
  57.  
  58.     :XITB_BUTTON
  59.     @Çå   (`üÉ     , 100, -2048)
  60.     J    #Çé       
  61.  
  62.  
  63.     // *******   DATA LOG SCREEN   ********
  64.     :DATALOGSCREEN
  65.  
  66.     m          
  67.  
  68.     N      (^à╝           )
  69.     {
  70.         U    $é┐         
  71.             // BACKGROUND ART
  72.                        ( "BK2A", 1 )
  73.             // RINGS BEHIND TEXT AREA
  74.                        ( "BKGA", 1 )
  75.  
  76.                          ( "LNML", "2")
  77.  
  78.             // MAINTENANCE LIST LOG ENTRIES...
  79.             j             ( "RLGT", "GMAINT" )
  80.  
  81.             // ADD LOG ENTRIES LISTED BEFORE REPAIRABLE ENTRIES
  82.             // * CHARACTER INDICATES MULTIPLE ENTRIES WITH THE SAME ID MAY BE ADDED
  83.             i          ( "GMAINT", "*A" )
  84.  
  85.             // ADD REPARABLE LOG ENTRIES
  86.             I  ( ^è╢                == 1 ) THEN
  87.             {
  88.                 i          ( "GMAINT", "C1REP" )
  89.             }
  90.             I  ( ^è╖                == 1 ) THEN
  91.             {
  92.                 i          ( "GMAINT", "C2REP" )
  93.             }
  94.             I  ( ^è╕                == 1 ) THEN
  95.             {
  96.                 i          ( "GMAINT", "C3REP" )
  97.             }
  98.  
  99.             // ADD LOG ENTRIES LISTED AFTER REPAIRABLE ENTRIES
  100.             // * CHARACTER INDICATES MULTIPLE ENTRIES WITH THE SAME ID MAY BE ADDED
  101.             i          ( "GMAINT", "*X" )
  102.  
  103.  
  104.             // INIT CELL REPAIR INDEXES
  105.             ~ÇÇ        = -1
  106.             ~Çü        = -1
  107.             ~Çé        = -1
  108.                        ( "CHOA", 1 )
  109.                        ( "1RDA", ^è╢                )
  110.                        ( "2RDA", ^è╖                )
  111.                        ( "3RDA", ^è╕                )
  112.                        ( "NRDA", 1 )
  113.             X Çü 
  114.         U    $âÇ           
  115.             // BACKGROUND ART
  116.                        ( "BK3A", 1 )
  117.             // RINGS BEHIND TEXT AREA
  118.                        ( "BKGA", 1 )
  119.  
  120.                          ( "LNML", "3")
  121.             j             ( "RLGT", "CMAINT" );
  122.                        ( "CTRA", 1 )
  123.             X Çü 
  124.     }
  125.  
  126.     // TEXT
  127.                  ( "LHDL", "AREA DATA LOG
  128.                            /FZONE FICHIER DONNEES
  129.                            /GÖRTL. DATENPROTOKOLL" )    
  130.                  ( "LVLL", "LVL/FLVL/GLVL" ); 
  131.  
  132.     // BUTTONS
  133.                    ( "RPRB", $Ç░                 "REPAIR/FREPARATION/GREPARATUR" ); 
  134.                    ( "XITB", "EXIT/FSORTIE/GZURÜCK", $Ç¡            );
  135.  
  136.  
  137.     // WE USING BLANKS HERE SO THAT NO TEXT WILL APPEAR
  138.                    ( "RSUB", "/! ");
  139.                    ( "RSDB", "/! ");
  140.                    ( "RPUB", "/! ");
  141.                    ( "RPDB", "/! ");
  142.     â                                                               // ALLOW MON SHOWN FIRST & LIST UPDATED
  143.     J    #Çò                  
  144.  
  145.  
  146.     :RSUB_REPEAT
  147.     :RSUB_BUTTON
  148.     @Çå   (`ü«        )
  149.     k             ( "RLGT", $Ç╖      )
  150.     J    #Çü 
  151.  
  152.     :RSDB_REPEAT
  153.     :RSDB_BUTTON
  154.     @Çå   (`ü«        )
  155.     k             ( "RLGT", $Ç╕        )
  156.     J    #Çü 
  157.  
  158.     :RPDB_REPEAT
  159.     :RPDB_BUTTON
  160.     @Çå   (`ü»        )
  161.     k             ( "RLGT", $Ç╢         )
  162.     J    #Çü 
  163.  
  164.     :RPUB_REPEAT
  165.     :RPUB_BUTTON
  166.     @Çå   (`ü»        )
  167.     k             ( "RLGT", $Ç╡       )
  168.     J    #Çü 
  169.  
  170.     :C1REP_HIGHLIGHT
  171.     ~ÇÇ        = @Ç₧              ( "RLGT" )
  172.                    ( "RPRB", $Ǽ         ) // REPAIR BUTTON ACTIVE
  173.     J    #Çü 
  174.     :C2REP_HIGHLIGHT
  175.     ~Çü        = @Ç₧              ( "RLGT" )
  176.                    ( "RPRB", $Ǽ         ) // REPAIR BUTTON ACTIVE
  177.     J    #Çü 
  178.     :C3REP_HIGHLIGHT
  179.     ~Çé        = @Ç₧              ( "RLGT" )
  180.                    ( "RPRB", $Ǽ         ) // REPAIR BUTTON ACTIVE
  181.     J    #Çü 
  182.  
  183.     :A_HIGHLIGHT
  184.     :X_HIGHLIGHT
  185.                    ( "RPRB", $Ç░                 ) // REPAIR BUTTON INACTIVE
  186.     @Çå    `üÉ     
  187.     J    #Çü 
  188.  
  189.     // REPAIR
  190.     :RPRB_BUTTON
  191.     // INCOMPLETE
  192.     I  (^à╝            == $é┐         ) THEN
  193.     {
  194.         // CHECK SELECTED ENTRY NO. AGINST CELL INDEXES
  195.         ~Çâ      = @Ç₧              ( "RLGT" )
  196.         I  ( ~Çâ      == ~ÇÇ        ) THEN
  197.         {
  198.             @Çì     (REPAIR_MADE)  // SFX FOR REPAIRS
  199.             ^è╢                = 0
  200.             ~ÇÇ        = -1         // INVALID
  201.                        ( "1RDA", ^è╢                )
  202.             // REMOVE ENTRY
  203.             ë             ( "GMAINT", "RLGT", "C1REP" )
  204.         }
  205.         E    I  ( ~Çâ      == ~Çü        ) THEN
  206.         {
  207.             @Çì     (REPAIR_MADE)
  208.             ^è╖                = 0
  209.             ~Çü        = -1         // INVALID
  210.                        ( "2RDA", ^è╖                )
  211.             ë             ( "GMAINT", "RLGT", "C2REP" )
  212.         }
  213.         E    I  ( ~Çâ      == ~Çé        ) THEN
  214.         {
  215.             @Çì     (REPAIR_MADE)
  216.             ^è╕                = 0
  217.             ~Çé        = -1         // INVALID
  218.                        ( "3RDA", ^è╕                )
  219.             ë             ( "GMAINT", "RLGT", "C3REP" )
  220.         }
  221.     }
  222.  
  223.     :RECALC_REPAIR_INDEXES
  224.     k             ( "RLGT", $Ç╡       )     // MAKE SURE LIST UPDATES
  225.  
  226.     // CHECK SELECTED ENTRY NO. AGINST CELL INDEXES
  227.     ~Çâ      = @Ç₧              ( "RLGT" )
  228.     I  ( ~Çâ      == ~ÇÇ        ) THEN
  229.                        ( "RPRB", $Ǽ         ) // REPAIR BUTTON ACTIVE
  230.     E    I  ( ~Çâ      == ~Çü        ) THEN
  231.                        ( "RPRB", $Ǽ         ) // REPAIR BUTTON ACTIVE
  232.     E    I  ( ~Çâ      == ~Çé        ) THEN
  233.                        ( "RPRB", $Ǽ         ) // REPAIR BUTTON ACTIVE
  234.     E   
  235.                        ( "RPRB", $Ç░                 ) // REPAIR BUTTON INACTIVE
  236.     J    #Çü 
  237.  
  238.     // *******   EMERGENCY SCREEN   ********
  239.     :EMERGENCYSCREEN
  240.  
  241.     m          
  242.  
  243.     // BACKGROUND
  244.     N      (^à╝           )
  245.     {
  246.         U    $é┐         
  247.                        ( "BK2A", 1 )
  248.             X Çé 
  249.         U    $âÇ           
  250.                        ( "BK3A", 1 )
  251.             X Çé 
  252.     }
  253.     // RINGS BEHIND TEXT AREA
  254.                ( "BKGA", 1 )
  255.     ê                 ( "LOGT", "EVAC" )
  256.                  ( "ARAL", "FUSION REACTOR
  257.                            /FFUSION REACTEUR
  258.                            /GFUSIONSREAKTOR" ) 
  259.                  ( "MHDL", "EMERGENCY PROCEDURE
  260.                            /FPROCEDURE D'URGENCE
  261.                            /GIM NOTFALL" );
  262.  
  263.  
  264.     // WE USING BLANKS HERE SO THAT NO TEXT WILL APPEAR
  265.                    ( "SUAB", "/! ");
  266.                    ( "SDAB", "/! ");
  267.                    ( "PUAB", "/! ");
  268.                    ( "PDAB", "/! ");
  269.  
  270.                    ( "XITB", "EXIT/FSORTIE/GZURÜCK", $Ç¡            );
  271.     J    #Çü 
  272.  
  273.     :SUAB_REPEAT
  274.     :SUAB_BUTTON
  275.     @Çå   (`ü«        )
  276.     k             ( "LOGT", $Ç╖      )
  277.     J    #Çü 
  278.  
  279.     :SDAB_REPEAT
  280.     :SDAB_BUTTON
  281.     @Çå   (`ü«        )
  282.     k             ( "LOGT", $Ç╕        )
  283.     J    #Çü 
  284.  
  285.     :PDAB_REPEAT
  286.     :PDAB_BUTTON
  287.     @Çå   (`ü»        )
  288.     k             ( "LOGT", $Ç┤        )
  289.     J    #Çü 
  290.  
  291.     :PUAB_REPEAT
  292.     :PUAB_BUTTON
  293.     @Çå   (`ü»        )
  294.     k             ( "LOGT", $Ç│      )
  295.     J    #Çü 
  296.  
  297.  
  298.     // ******   MISC BUTTONS   *****
  299.  
  300.     :ESCAPE_BUTTON
  301.     :AXTB_BUTTON
  302.     @Çå   (`ü▓        )
  303.     :STOPIT
  304.            
  305. }
  306.  
  307. [ REPAIR_MADE
  308.  
  309.     00:20 @Çå   (`ü¡        )
  310.     00:25 @Çå   (`ü¡        )
  311.     01:00 @Çå   (`ü¡        )
  312.     01:10 @Çå   (`ü░        , 255, 2048)
  313. ]
  314.  
  315. //$ 26 - version number
  316.